10 LW=PEEK(186):DIMP$(150):PRINT"":POKE53280,0:POKE53281,0:GOSUB460
160 N=10
170 PRINT"[147][159] TC PRAESENTIERT   [146][158]";:PRINT"  ";LEFT$(P$(0),9);"":PRINT:IFN<10THENN=10
200 IFN>145THENN=145
210 FORJ=(N-9)TON:IFJ<=XTHENPRINTJ;"- ";P$(J)
220 IFJ>XTHENPRINT"KEIN WEITERER EINTRAG!":J=N
230 NEXT:PRINT"---> [157][157][157][157][157]     [159]F1[146] WEITER    [146]";:PRINT"    [159]F3[146] ZURUECK  [146]":PRINT"     [159]E[146][158]NDE         [146]";:PRINT"    [159]F5[146][158] LADEN    [146]":PRINT"     [159]F7[146] LADEN + STARTEN [146]
290 Z$[178]"":[161]Z$:[139]Z$[178]""[167]290
300 [139]Z$[178][199](133)[175]N[179]X[167]N[178]N[170]10:[137]170
310 [139]Z$[178][199](134)[175](N[171]10)[177]0[167]N[178]N[171]10:[137]170
320 [139]Z$[178]"E"[167][153]"NEUSTART MIT 'RUN'!":[128]
330 [139]Z$[178][199](135)[167]U[178]13:[137]360
340 [139]Z$[178][199](136)[167]U[178]131:[137]360
350 [137]290
360 [153]"PROGRAM #";:[133]S$:S[178][197](S$):[139]S[179]1[176]S[177]X[167]160
390 [139][195](P$(S))[177]12[167]P$(S)[178][200](P$(S),12)[170]"*
400 PRINT"[147][144]LOAD"+CHR$(34)+P$(S)+CHR$(34)+",8";:POKE631,19:POKE632,U:POKE198,2:END
420 OPEN15,LW,15:INPUT#15,AA,BB$,CC,DD:IFAA<>0THENCLOSE2:CLOSE15:RETURN
450 RETURN
460 OPEN2,LW,2,"- MENUE -,S,R":GOSUB420:IFAA<>0THENPRINT"[147]":END
470 X=0
480 INPUT#2,P$(X):IFST<>64THENX=X+1:GOTO480
500 CLOSE2:CLOSE15:RETURN